/ HTBasic 9.3 / HTBasic 9.3.iso / 93win / data1.cab / Advanced_Math_Samples / froot

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 88 84 00 01 00 00 01 00 | 00 00 00 00 02 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 12 31 30 20 20 20 20 | 43 4c 45 41 52 20 53 43 |..10    |CLEAR SC|
|00000110| 52 45 45 4e 00 2f 32 30 | 20 20 20 20 4c 4f 41 44 |REEN./20|    LOAD|
|00000120| 53 55 42 20 41 4c 4c 20 | 46 52 4f 4d 20 22 2e 2e |SUB ALL |FROM "..|
|00000130| 5c 6d 61 74 68 6c 69 62 | 5c 4d 61 74 68 6c 69 62 |\mathlib|\Mathlib|
|00000140| 2e 68 74 73 22 00 00 2b | 33 30 20 20 20 20 50 52 |.hts"..+|30    PR|
|00000150| 49 4e 54 20 22 54 68 65 | 20 72 6f 6f 74 73 20 6f |INT "The| roots o|
|00000160| 66 20 78 2d 65 78 70 28 | 78 29 2a 2e 32 35 20 61 |f x-exp(|x)*.25 a|
|00000170| 72 65 22 00 00 0b 34 30 | 20 20 20 20 50 52 49 4e |re"...40|    PRIN|
|00000180| 54 00 00 28 35 30 20 20 | 20 20 58 3d 46 4e 46 72 |T..(50  |  X=FNFr|
|00000190| 6f 6f 74 28 22 46 75 6e | 63 22 2c 4f 2c 31 2c 31 |oot("Fun|c",O,1,1|
|000001a0| 30 30 2c 31 2e 30 45 2d | 31 30 30 29 00 14 36 30 |00,1.0E-|100)..60|
|000001b0| 20 20 20 20 43 41 4c 4c | 20 46 75 6e 63 28 59 2c |    CALL| Func(Y,|
|000001c0| 58 29 00 23 37 30 20 20 | 20 20 50 52 49 4e 54 20 |X).#70  |  PRINT |
|000001d0| 22 52 6f 6f 74 20 31 3a | 20 28 22 3b 58 3b 22 2c |"Root 1:| (";X;",|
|000001e0| 22 3b 59 3b 22 29 22 00 | 00 28 38 30 20 20 20 20 |";Y;")".|.(80    |
|000001f0| 58 3d 46 4e 46 72 6f 6f | 74 28 22 46 75 6e 63 22 |X=FNFroo|t("Func"|
|00000200| 2c 32 2c 33 2c 31 30 30 | 2c 31 2e 30 45 2d 31 30 |,2,3,100|,1.0E-10|
|00000210| 30 29 00 14 39 30 20 20 | 20 20 43 41 4c 4c 20 46 |0)..90  |  CALL F|
|00000220| 75 6e 63 28 59 2c 58 29 | 00 23 31 30 30 20 20 20 |unc(Y,X)|.#100   |
|00000230| 50 52 49 4e 54 20 22 52 | 6f 6f 74 20 32 3a 20 28 |PRINT "R|oot 2: (|
|00000240| 22 3b 58 3b 22 2c 22 3b | 59 3b 22 29 22 00 00 18 |";X;",";|Y;")"...|
|00000250| 31 31 30 20 20 20 44 45 | 4c 53 55 42 20 46 4e 41 |110   DE|LSUB FNA|
|00000260| 69 20 54 4f 20 45 4e 44 | 00 09 31 32 30 20 20 20 |i TO END|..120   |
|00000270| 45 4e 44 00 00 18 31 33 | 30 20 20 20 53 55 42 20 |END...13|0   SUB |
|00000280| 46 75 6e 63 28 52 45 41 | 4c 20 59 2c 58 29 00 16 |Func(REA|L Y,X)..|
|00000290| 31 34 30 20 20 20 20 20 | 59 3d 58 2d 45 58 50 28 |140     |Y=X-EXP(|
|000002a0| 58 29 2a 2e 32 35 00 0c | 31 35 30 20 20 20 53 55 |X)*.25..|150   SU|
|000002b0| 42 45 4e 44 ff ff       |                         |BEND..  |        |
+--------+-------------------------+-------------------------+--------+--------+